home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKRBE.SBP < prev    next >
Text File  |  1990-06-01  |  2KB  |  71 lines
  1. SBP
  2.   ╜   STKRBE
  3.   ╜   Client Trading Balance Report
  4.   ╜   Last updated Jan 21, 90
  5.  
  6.   │ _ wrerror
  7.  hd1$ "Client Trading Balances at "  ( Q,"mmm dd,yy")
  8.  hd12$ "Ref: STKRBE"
  9.  
  10. m1: 
  11.   ┴USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  12.   } ┴
  13.   {@52;"   =========  ==========  ==========="
  14.   {@1;"Totals for Client Trading Balance Report";@54;&6.2 lUSD Value.TRANS;@67;&11 lComm_Value.TRANS;@79;&6.2 lTotal_Due.TRANS
  15.   {@52;"   =========  ==========  ==========="
  16.   Æ ┴
  17.  
  18.   ƒ
  19.   {@1;hd1$;@66;hd12$
  20.   {
  21.   {@1;"Client ref Name                   Location                       Telephone "
  22.   {@1;"Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  23.   {@1;"--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  24.   Æ ƒ
  25.  
  26.   ₧Customer_Ref.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  27.   Ç ₧Customer_Ref.TRANS
  28.   {
  29.   {@1;&8Customer_Ref.TRANS;@10;&24Client.CLIENTS;@35;&30Location.CLIENTS;@66;&3Dialcode.COUNTRY;@70;&16Telephone.CLIENTS
  30.   Æ ₧
  31.  
  32.   } ₧Customer_Ref.TRANS
  33.   {@54;" ---------  ----------  ------------"
  34.   {@1;"Totals for ";&15 ₧;@55;&12 lUSD Value.TRANS;&11 lComm_Value.TRANS;@80;&12 lTotal_Due.TRANS
  35.   {@55;"---------  ----------  ------------"
  36.   Æ ₧
  37.  
  38.   ╔@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  39.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  40.   ╨Currency.TRANS Currency.CURRENCY  Customer_Ref.CLIENTS Customer_Ref.TRANS  Name.COUNTRY Country.CLIENTS
  41.   ╡Customer_Ref.TRANS,Transaction ref.TRANS
  42.  
  43. m2: 
  44.   íp$ "d" p
  45.  ╩ ╦ss14$
  46.  ╧ Ñ  ▀
  47.   Æ í
  48.  
  49. repeat: 
  50.   ┬ms3$,"",135,a%
  51.   ía% 0 p wrexit
  52.   íp$ "p" p ╣;
  53.   wm1
  54.  
  55. rexit: 
  56.   ä"menu"
  57.  
  58. rerror: ╜ On error
  59.  res% 0
  60.   í & 11 p
  61.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  62.   ^ í & 27 p
  63.  ┬ms11$,ms12$,100,a%:res% 2
  64.   ^
  65.  ┬ (( &),"",113,a%:res% 1
  66.   Æ í
  67.   íres% 1 p yrepeat 
  68.   íres% 2 p yrexit
  69.   É
  70.  
  71.